home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / tuntasys / tiffcut / tiffcut.bas next >
BASIC Source File  |  1994-09-05  |  1KB  |  22 lines
  1. 1 DIM BACK(100000)
  2. 10 '*************************************************************
  3. 20 '         ＴＵＮＴＡ　ＡＤＶＥＮＴＵＲＥ　ＳＹＳＴＥＭ
  4. 30 '　　　　　　ＴＩＦＦ　ＣＵＴＴＥＲ　ｆｏｒ　２５６
  5. 40 '*************************************************************
  6. 50 SCREEN@ 2:CLS:OMX=-500:OMY=-500
  7. 60 LINE INPUT"ロードしたい２５６色のファイルを入力してください。（拡張子付き）",FLN$
  8. 70 ON ERROR GOTO *ERROR
  9. 80 LOAD@ FLN$
  10. 90 MOUSE 0:MOUSE 1,320,240,1
  11. 100 WHILE MOUSE(2,0)=0:MX=MOUSE(0):MY=MOUSE(1)
  12. 120 IF OMX<>MX OR OMY<>MY THEN LINE(OMX,OMY)-(OMX+336,OMY+220),XOR,,B:LINE(MX,MY)-(MX+336,MY+220),XOR,,B
  13. 130 OMX=MX:OMY=MY
  14. 140 WEND
  15. 150 LINE(MX,MY)-(MX+336,MY+220),XOR,,B:GET@A(0,0)-(639,479),BACK:CLS
  16. 160 LINE INPUT"保存するファイル名を拡張子なしで入力してください",FLN2$
  17. 161 CLS:PUT@A(0,0)-(639,479),BACK
  18. 162 SAVE@ FLN2$+".TIF",(MX,MY)-(MX+336,MY+220),1,1
  19. 170 OMX=-500:OMY=-500:GOTO 50
  20. 180 *ERROR
  21. 190 PRINT"エラーが発生しました｡":BEEP 1:BEEP 0:WAIT 100:OMX=-500:OMY=-500:RESUME 50
  22.